#PM2.5 leaflets
PM25_1990_leaflet
PM25_2017_leaflet
PM25_change_leaflet
DALY_1990_leaflet
DALY_2017_leaflet
DALY_change_leaflet
#is there a way to look at how both variables change in relation to one another over time,
#in a more broader term and in a single visualization?
g <- ggplot(data_joined, aes(PM25exposure , DALY, color = country))+
geom_point(alpha = 0.7, show.legend = FALSE)+
scale_size(range = c(2, 12))+
theme_classic()+
labs(title = 'Year: {round(frame_time, 0)}', x = 'PM 2.5', y = 'DALY per 1K')+
transition_time(year)+
ease_aes('linear')
animate(g, duration = 20, fps = 20, width = 400, height = 400, renderer = gifski_renderer())
